home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / langs / clisp-c.zoo / defseq.fas < prev    next >
Encoding:
CLISP byte-compiled Lisp program  |  1993-06-05  |  2.2 KB  |  51 lines
  1. (SYSTEM::VERSION '(SYSTEM::CLISP2 14. LISP:T 210292.))
  2. #Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D4 36 02 30 07 19 01) "SYSTEM")
  3. #Y(#:TOP-LEVEL-FORM-2
  4.    #29Y(00 00 00 00 00 01 D4 D5 D6 D7 D8 D6 D7 D9 DA D5 DB DC DD DE DF E0 6B 10
  5.         00 2D 0D 19 01
  6.        )
  7.    LIST #.#'IDENTITY #.#'LIST-UPD #.#'LIST-ENDTEST #.#'LIST-FE-INIT
  8.    #.#'LIST-ACCESS #.#'LIST-ACCESS-SET #.#'LIST-LLENGTH #.#'MAKE-LIST
  9.    #.#'LIST-ELT #.#'LIST-SET-ELT #.#'LIST-INIT-START #.#'LIST-FE-INIT-END
  10.    %DEFSEQ
  11.   )
  12. #Y(#:TOP-LEVEL-FORM-3
  13.    #29Y(00 00 00 00 00 01 D4 D5 D6 D7 D8 D9 DA DB DC DD DE DF DB DC E0 E1 6B 10
  14.         00 2D 0E 19 01
  15.        )
  16.    VECTOR #.#'VECTOR-INIT #.#'VECTOR-UPD #.#'VECTOR-ENDTEST #.#'VECTOR-FE-INIT
  17.    #.#'VECTOR-FE-UPD #.#'VECTOR-FE-ENDTEST #.#'AREF #.#'STORE #.#'IDENTITY
  18.    #.#'VECTOR-LENGTH #.#'MAKE-ARRAY #.#'VECTOR-INIT-START
  19.    #.#'VECTOR-FE-INIT-END %DEFSEQ
  20.   )
  21. #Y(#:TOP-LEVEL-FORM-4
  22.    #29Y(00 00 00 00 00 01 D4 D5 D6 D7 D8 D9 DA DB DC DD DE DF DB DC E0 E1 6B 10
  23.         00 2D 0E 19 01
  24.        )
  25.    STRING #.#'VECTOR-INIT #.#'VECTOR-UPD #.#'VECTOR-ENDTEST #.#'VECTOR-FE-INIT
  26.    #.#'VECTOR-FE-UPD #.#'VECTOR-FE-ENDTEST #.#'CHAR #.#'STORE #.#'IDENTITY
  27.    #.#'VECTOR-LENGTH #.#'MAKE-STRING #.#'VECTOR-INIT-START
  28.    #.#'VECTOR-FE-INIT-END %DEFSEQ
  29.   )
  30. #Y(#:TOP-LEVEL-FORM-5
  31.    #29Y(00 00 00 00 00 01 D4 D5 D6 D7 D8 D9 DA DB DC DD DE DF DB DC E0 E1 6B 10
  32.         00 2D 0E 19 01
  33.        )
  34.    BIT-VECTOR #.#'VECTOR-INIT #.#'VECTOR-UPD #.#'VECTOR-ENDTEST
  35.    #.#'VECTOR-FE-INIT #.#'VECTOR-FE-UPD #.#'VECTOR-FE-ENDTEST #.#'BIT #.#'STORE
  36.    #.#'IDENTITY #.#'VECTOR-LENGTH #.#'MAKE-BIT-VECTOR #.#'VECTOR-INIT-START
  37.    #.#'VECTOR-FE-INIT-END %DEFSEQ
  38.   )
  39. #Y(#:TOP-LEVEL-FORM-6
  40.    #57Y(00 00 00 00 00 01 D4 1A 28 8B 00 00 29 01 D5 AA 59 02 0B 00 00 A9 D6 D7
  41.         D8 D9 DA DB DC DD DE DF B3 65 0C 01 DC DD E1 E2 6B 10 00 2D 0F 16 02 7A
  42.         00 92 20 55 16 01 BE 19 01
  43.        )
  44.    (1. 2. 4. 8. 16. 32.) UNSIGNED-BYTE #.#'VECTOR-INIT #.#'VECTOR-UPD
  45.    #.#'VECTOR-ENDTEST #.#'VECTOR-FE-INIT #.#'VECTOR-FE-UPD
  46.    #.#'VECTOR-FE-ENDTEST #.#'AREF #.#'STORE #.#'IDENTITY #.#'VECTOR-LENGTH
  47.    #Y(#:TOP-LEVEL-FORM-6-1
  48.       #17Y(00 01 00 00 00 02 A9 36 07 07 00 00 EF 2F 1B 19 02) NIL
  49.      )
  50.    #.#'VECTOR-INIT-START #.#'VECTOR-FE-INIT-END %DEFSEQ
  51.   )